home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Memphis Amiga Group / MAG Disk (1989-11)(Memphis Amiga Group).zip / MAG Disk (1989-11)(Memphis Amiga Group).adf / Guru / CloneNames < prev    next >
Text File  |  1986-11-06  |  411b  |  25 lines
  1.  
  2. \ Clone References
  3.  
  4.  
  5. anew TASK-CloneNames
  6.  
  7.  
  8. .NEED Clone
  9.  
  10.       variable StackSize
  11.       variable DictionarySize
  12.       variable Enable_Cancel
  13.       variable MaxImageSize
  14.       variable IfLeaveLong
  15.  
  16. \     defer UserCleanup      ' noop is UserCleanup
  17.  
  18.       \ for automating the whole process...
  19.  
  20.       : INITCLONE                 ;
  21.       : CLONE        bl word drop ;
  22.       : SAVE-IMAGE  eol word drop ;
  23.  
  24. .THEN
  25.